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-- FileCache.Mesa 
-- Edited by: 

Sandman on December 8, 1977 10:22 AM 

Barbara on May 15, 1978 10:54 AM 

Barbara on August 30, 1978 10:49 AM 

DIRECTORY 

AltoFileDefs: FROM "altofiledefs" USING [eofDA, FP, SW], 

BcdDefs: FROM "bcddefs" USING [BCD, MTIndex, VersionID], 

DebijgUsefulDefs: FROM "debugusefulders" . 

DebuyUtn ityDefs: FROM "debugutil itydef s" . 

DirectoryDef s : FROM "directorydef s" USING [EnumerateDirectory] . 

InlineDefs: FROM "inlinedefs" USING [COPY], 

SegmentDeFs: FROM "segmentdef s" USING [ 

AccessOptions , DeleteFileSegment , FileHandle, FileNameError, 
FileSegmentAddress , FileSegmentHandl e. InsertFile, InvalidFP, LockFile, 
MoveFileSegment , NewFileSegment , OpenFile, PageCount, PageNumber, Read, 
ReleaseFile, Swapin, Unlock, UnlockFile], 

StringDefs: FROM "stringdefs" USING [ 

AppendString, Equi valentSubStrings , SubStringDescriptor] , 

SymbolTableDefs: FROM "symbol tabledefs" USING [NoSymbolTable] , 

SystemDefs: FROM "systemdefs" USING [AllocateHeapString , FreeHeapString] ; 

DEFINITIONS FROM AltoFileDefs; 

FileCache: PROGRAM 

IMPORTS DirectoryDefs, SymbolTableDefs. SystemDefs, StringDefs. 

SegmentDef s 
EXPORTS DebugUsefulDefs, DebugUtil ityDefs 
SHARES SegmentDefs = 

BEGIN 

FileHandle: TYPE « SegmentDef s .FileHandle; 

NullFP: FP = FP[SN[0, 0,0, 0,0], eofDA]; 

FCRecord: TYPE = RECORD [ 
name: STRING, 
fp: FP]; 

FCSize: CARDINAL = 20; 

FCLimit: CARDINAL = FCSize-1; 

FCArray: ARRAY [0.. FCSize) OF FCRecord; 

InitFileCache: PROCEDURE » 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .FCSize) DO 

FCArray[i] ^ FCRecord[NIL, NullFP] ; 

ENDLOOP; 
cachelnvalid *- FALSE; 
RETURN 
END; 

PromoteFCRecord: PROCEDURE [i: CARDINAL] « 
BEGIN 

ithFCR: FCRecord; 
IF i = FCLimit THEN RETURN; 
ithFCR ^ FCArray[i]; 

InlineDefs. COPY[to: eFCArray[i], from: @FCArray[i+l] , nwords: SIZE[FCRecord]*(FCLimit~i )] ; 
FCArray[FCLimit] ♦- ithFCR; 
RETURN 
END; 

CopyFileName: PROCEDURE [name: STRING] RETURNS [copy: STRING] = 
BEGIN 

IF name « NIL THEN RETURN[NIL]; 

copy <- SystemDefs .Al locateHeapString[name. length]; 
StringDefs . AppendStri ng [copy , name]; 
RETURN 
END; 

AddFCRecord: PROCEDURE [name; STRING, fh: FileHandle] « 
BEGIN 

IF FCArray[0].name NIL THEN 
SystemDefs . FreeHeapString[FCArray[0] . name] ; 
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In1ineDefs.C0PY[to: (5FCArray[0] , from: @FCArray[l], nwords: SIZE[FCRecorci]*(FCSiz0-l)] ; 

FCArray[FCLimit]. name <~ CopyFileName[namo] ; 

IF fh ff NIL THEN FCArray[FCLimi t] . fp ^ fh.fp 

ELSE FCArray[FCLimit],fp ^ NullFP; 

cachelnval id ^ TRUE ; 

RETURN 

END; 

CacheNewFile: PUBLIC PROCEDURE [name: STRING, access: SegmentDef s. AccessOptions] RETURNS [file: FileH 
**and1e] =« 
BEGIN 

i: CARDINAL; 
file ^ NIL; 

FOR i DECREASING IN [O..FCSize) DO 
IF FCArray[i].name « NIL THEN 

BEGIN AddFCRecord[name,NIL]; EXIT END; 
IF EquivalentFi1eNames[name , FCArray[i] . name] THEN 

BEGIN PromoteFCRecord[i]; EXIT END; 
REPEAf FINISHED => AddFCRecord[name , NIL] ; 
ENDLOOP; 
IF FCArray[FCLimit].fp.leaderDA ^ eofDA AND -cachelnval id THEN 
BEGIN OPEN SegmentDefs; 

file ^ InsertFile[@FCArray[FCLimit] . f p , access]; 
OpenFile[f ile I InvalidFP => GOTO BadCache]; 
RETURN; 

EXITS BadCache => 
BEGIN 

IF file.segcount = THEN ReleaseFil e[f ile] ; 
cachelnval id *■ TRUE; 
END; 
END; 
Val idateCache[]; 
IF FCArray[FCLimit].fp.leaderDA ff eofDA THEN 

file *r SegmentDef s . InsertFile[@FCArray[FCLimi t] .fp, access] 
ELSE ERROR SegmentDef s . FileNameError[name] ; 
RETURN 
END; 

FileName: PUBLIC PROCEDURE [name: STRING, file: FileHandle] « 
BEGIN 

localname: STRING <- [40]; 
i: CARDINAL; 
BEGIN 

IF cachelnvalid THEN GO TO notincache 
ELSE FOR i DECREASING IN [O..FCSize) DO 

IF FCArray[i].name = NIL THEN GO TO notincache; 
IF FCArray[i].fp = file.fp THEN 
BEGIN 

StringDef s . Appends tring [name, FCArray[i] .name] ; 
PromoteFCRecord[i] ; 
RETURN 
END; 
REPEAT FINISHED => GO TO notincache; 
ENDLOOP; 
EXITS notincache => AddFCRecord[NIL, f ile] ; 
END; 
Val idateCache[] ; 

IF FCArray[FCLimit].name = NIL THEN 
BEGIN 

FOR i DECREASING IN [L.FCSize) DO 
FCArray[i] <- FCArray[i-l] ; 
ENDLOOP; 
FCArray[0] <- [NIL, Nul IFP] ; 
SIGNAL SegmentDef s.InvalidFP[@file.fp] 
END 
ELSE StringDef s.Ap pen dString[name,FC A rray[FC Limit] .name]; 
RETURN 
END; 

EquivalentFileNames: PROCEDURE [nl. n2: STRING] RETURNS [BOOLEAN] « 
BEGIN 

si ,s2 : StringDef s .Substring Descriptor; 
si <- [base: nl, offset: 0, 

length: nl. length - (IF nl[nl. length-l] « '. THEN 1 ELSE 0)]; 
s2 <- [base: n2, offset: 0, 

length: n2. length - (IF n2[n2.1ength-l] « '. THEN 1 ELSE 0)]; 
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RETURN[StringDefs.EquivalentSubStrings[@sl,0s2]] 
END; 

cachelnvalid: BOOLEAN; 

InvalidateFileCache: PUBLIC PROCEDURE » 
BEGIN 

cachelnval id ♦- TRUE; 
END; 

ValidateCache: PROCEDURE - 
BEGIN 

i: CARDINAL; 

CheckEntry: PROCEDURE [fp: POINTER TO FP, dirname: STRING] RETURNS[BOOLEAN] « 
BEGIN 

fcr: POINTER TO FCRecord ♦- @FCArray[FCLimi t] ; 
THROUGH [0. .FCSize) DO 
IF fcr. name = NIL THEN 
BEGIN 

IF fcr.fp.leaderDA « eofDA THEN EXIT; 
IF fcr.fp - fpt THEN 

fcr. name ♦- CopyFileName[dirname]; 
END 
ELSE 
BEGIN 
IF EquivalentFi1eNames[fcr . name, dirname] THEN 

fcr.fp ♦■ fpt; 
END; 
fcr <- LOOPHOLE[fcr - SIZE[FCRecord]] ; 
ENDLOOP; 
RETURN[FALSE]; 
END; 

IF -cachelnvalid THEN RETURN; 
FOR i IN [0. .FCSize) DO 

IF FCArray[i].name # NIL THEN FCArray[i]. f p <- NullFP; 

ENDLOOP; 
Di rectory Defs . E n ume r a teDi rectory [CheckEntry] ; 
cachelnvalid *- FALSE; 
END; 

FindSymbolTable: PUBLIC PROCEDURE [name: STRING] 

RETURNS [file: SegmentDef s . FileHandl e, base: SegmentDefs .PageNumber, pages: SegmentDef s.PageCount] 

BEGIN OPEN SymbolTableDefs, SegmentDefs. BcdDefs; 

headerseg: FileSegmentHandle; 

bHeader: POINTER TO BCD; 

mtb, sgb: CARDINAL; 

mti: MTIndex = LOOPHOLE[0]; 

file <- CacheNewFile[name, Read 

IFileNameError => ERROR NoSymbolTabl e[NIL]] ; 
headerseg <- NewFileSegment[f ile, 1, 1 , Read]; 
Swapln[headerseg] ; 

bHeader *- FileSegmentAddress[headerseg]; 
BEGIN OPEN bHeader; 
ENABLE UNWIND => 
BEGIN 

Unlock[headerseg]; 
Del eteFileSegment[ headerseg]; 
END; 
IF versionident ff BcdDefs .VersionlD OR nModules ^ 1 

THEN ERROR NoSymbol Table[NIL] ; 
IF (pages^nPages) # 1 THEN 

BEGIN X 

Unlock[headerseg]; 
Mo veFileSegment[ headerseg, 1 .pages]; 
Swapln[headerseg] ; 

bHeader ^ FiloSegmentAddress[headerseg] ; 
END; 
mtb <- LOOPHOLE[bHeader,CARDINAL]+mtOffset; 
sgb <- LOOPHOLE[bHeader.CARDINAL]+sgOffset; 
base <- ( (mtb+mti ) . sseg+sgb) .base; 

pages *- ( (mtb+mti ) . sseg+sgb) .paqes+( (mtb+mti) . sseg+sgb) .extraPages; 
END; 
Unlock [headerseg]; 
LockFil0[fne]; 
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Del eteFneSegriient[ headers eg] ; 

UmockFile[file]; 

RETURN 

END; 

- Main Body 
InitFi leCacho[] ; 



END. 



